وبلاگ آموزشی خبری کامپیوتر

برنامه اي بنويسيد كه عدد در مبناي16 دريافت كرده و معادل آن را در مبناي 10 نمايش دهد.

حال بايد 2TEXTBOXايجا كرده ونام آنهارا به ترتيبtxt1,.txt2تغيير دهيد

Dim intn as long,inti as integer,strs as string

Dim strx as string*1,bytx as byte

Strs=ucase(strReverse(txt1))

For inti=len(strs) to 1 step -1

Strx=mid(strs,inti,1)

Select case strx

Case"A"

Bytx=10

Case"B"

Bytx=11

Case"C"

Bytx=12

Case"D"

Bytx=13

Case"E"

Bytx=14

Case"F"

Bytx=15

Case "0" to "9"

Bytx=val(strx)

Case else

Msgbox"Error In Number"

Exit sub

End select

Intn=intn+bytx*16^(inti-1)

Next

Txt2=intn

End sub

Private Sub cmdExit_Click()

End

End Sub

برنامه اي بنويسيد كه بدون استفاده از تابع Replace كار اين تابع را شبيه سازي كند.

حال 3TEXTBOX به نامهاي txts,txtf,txtr

Private sub cmdRun_Click()

Dim strs as string,strf,r as string

Dim strl as string,strri as string,intx as integer

Strs=txts

Strf=txtf

Strr=txtr

Intx=instr(strs,strf)

Do while intx>0

Strl=left(strs,inx-1)

Strri=mid(strs,inx+len(strf))

Strs=strl+strr+strri

Intx=instr(strs,strf)

Loop

Textresult=strs

End sub

Private Sub cmdExit_Click()

EndEnd Sub

برنامه اي بنويسيد كه رشته اي شامل يك عبارت رياضي را از ورودي دريافت كند. سپس حاصل آن را چاپ كند.

به عنوان مثال,اگر رشته كاربر "=12*3"را وارد عدد خروجي 36در خروجي چاپ كند.

Private sub cmdRun_Click()

Dim c,a,b as double,intn as integer,strs,strop as string

intn=instr(1,strs,"*"):op="*"

If intn=0 then

Intn=instr(1,strs,"+"):op="+"

End if

If intn=0 then

Intn=instr(1,strs,"/"):op="/"

End if

If intn=0 then

Intn=instr(1,strs,"-"):op="-"

End if

If  intn=0 then

Msgbox"Error in Eqution"

Exit sub

End if

A=val(left(strs,intn-1))

B=val(mid(strs,intn+1))

Select case op

Case"*"

C=a*b

Case"+"

C=a+b

Case"/"

C=a/b

Case"-"

C=a-b

End select

Print strs;"="c

End sub

Private Sub cmdExit_Click()

EndEnd Sub

________________________________________________________________________________________

برنامه اي بنويسيد كه يك عدد صحيح مثبت را از ورودي دريافت كندو به صورت حروف چاپ كند.

به عنوان مثال عدد 100 را پيغام One Hundredنمايش دهد.

Private sub cmdRun_Click()

Dim strs as string ,intn,inta,intc as integer

Strs=""

Inta inputbox("Enter Number:")

Intn=inta

If inta=0 then strs="Zero"

Intc=inta\100

If intc<>0 then

Strs=choose(intc,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")+"Hundred"

End if

Inta=inta mod 100

Intc=inta\10

If intc<>0 then

If intc=1 then

Strs=strs+"Ten"

Else

Strs=strs+choose(intc-1,"Twenty","Thirty","Thirty","Fourty","Fifty","Sixty","Seventy","Eighty","Ninty")

End if

End if

Inta=inta mod 10

Intc=inta\1'intc=inta

If intc<>0 then

Strs=strs+choose(intc,"One","two","three","Four","five","six","seven","Eight","Nine")

End if

Print intn;"="; strs

Private Sub cmdExit_Click()

End

End Sub

____________________________________________________________________________________

برنامه اي بنويسيد كه رشته اي را از ورودي دريافت كند ومجموع ارقام نويسه اي موجود در رشته را محاسبه نمايد و نمايش دهد.

Private sub cmdRun_Click()

Dim stra,strb as string

Dim inti,intc as integer

Intc=0

Stra=inputbox("Enter String:")

For inti=1 to len(stra)

Strb=mid(stra,inti,1)

Intc=intc=intc+val(strb)

Next inti

Print intc

End sub

Private Sub cmdExit_Click()

End

End Sub

برنامه اي بنويسد كه رشته اي از ورودي در يافت كند و تعيين كند كه آيا رشته از هر دو طرف كه در نظر گرفته شود يكسان است يا خير؟به عنوان مثال رشته"beeb"چنين خاصيتي دارد.

Private sub cmdRun_Click()

Dim stra,strb as string

Stra=inputbox("Enter First sting:")

Strb=strReverse(stra)

If stra=strb then

"دورشته بربراندmsgbox"

Else

"دو رشته برابر نيستند"msgbox

End if

End sub

Private Sub cmdExit_Click()

EndEnd Sub

________________________________________________________________________________________

-برنامه اي بنويسيدكه دو عدد در مبناي دودويي را از ورودي دريافت كند و حاصل جمع آنها را محاسبه كندو نمايش دهد.

Dim stra ,strb,strs as string

Dim inti,inta,intb,intc as integer,bytp as Byte

Stra=inputbox("Enter First Number:")

Inta=0:bytp=0

For inti=len(stra) to 1 step-1

Intc=val(mid(stra,inti,1))*2^bytp

Inta=inta+intc

Bytp=bytp+1

Next inti

Strb=inputbox("Enter Second Number:")

Intb=0:bytp=02

For inti=len(strb) to 1 step -1

Intc=val(mid(strb,inti,1))*2^bytp

Intb=intb+intc

Bytp=bytp+1

Next inti

Intc=inta+intb

Strs=""

Do while intc>0

Inti=intc\2

Strs=strs & inti

Loop

Strs=strReverse(strs)

Print stra;"+";strb;"=";strs

End sub

Private Sub cmdExit_Click()

End
End Sub

-برنامه اي بنويسيد كه رشته اي را از ورودي دريافت كند و تعداد حروف بزرگ وتعداد كوچك آن را شمارش كند و با پيغام مناسب چاپ كند.

Private Sub cmdRun _Click ()

Dim stra as string,inti as integer

Dim intu,intl as integer

Dim str as string*1

Stra=inputbox("Enter String:")

Intl=0

Intu=0

For inti=1 to len(stra)

Strs=mid(stra,inti,1)

Select case strs

Case "a" to "z"

Intl=intl+1

Case "A" to "Z"

Intu=intu+1

End select

Next inti

Print "Number of Lower case is:";intl

Print" Number of Upper case is:"intu

End sub

Private Sub cmdExit_Click()

EndEnd Sub

2-برنامه اي بنويسيد كه نام ونام خانوادگي شخصي را از ورودي دريافت و در يك متغير قرار دهد.سپس آنها را بصورت مجزا نمايش دهد.

براي اين برنامه بايد يك فرم داراي 2 Command Button باشد.

و نام Command1 را به cmdRun   تغيير مي دهيم ، و روي دابل كليك ميكنيم و كدهاي زير را در آن مي نويسيم:

Dim strA,strName,strFamil as string,byN as Byte

strA=trim(inputbox("Enter name&famil:"))

byn=instr(1,stra,"")

if bytN<>0 then

strname=left(strA,byn-1)

strfamil=trim(mid(stra,byn))

else

strname=stra

strfamil=""

end if

print"Name";strname

print"Famil";strfamil

Private Sub cmdExit_Click()

End

End Sub

____________________________________________________________________________________